home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 8 / Amoszine 8 (Disk 2 of 3).adf / BELL.lha / PIC_PACKER1.AMOS / PIC_PACKER1.amosSourceCode < prev    next >
AMOS Source Code  |  1992-03-06  |  2KB  |  80 lines
  1. Screen Open 0,640,256,8,Hires
  2.  
  3. ST:
  4. Home 
  5. Flash Off : Curs Off : Cls 0
  6. Colour 1,$F13
  7. Paper 0 : Pen 1
  8. Wait 50
  9. Inverse On : Centre "BELL Picture Compactor V1.0" : Inverse Off 
  10. Pen 5
  11. Print : Print : Print : Centre "Click right mouse button to crunch ALL pics on a BELL set up disk"
  12. Print : Print : Centre "Click left mouse button to crunch manually"
  13. Print : Print : Centre "OR press ESCAPE KEY to quit."
  14. Do 
  15. If Mouse Key=1 Then Goto MANUAL
  16. If Mouse Key=2 Then Goto ALL : Rem right mouse button 
  17. If Key State(69) Then Stop 
  18. Loop 
  19.  
  20. MANUAL:
  21.  
  22. F$=Fsel$("","SELECT PICTURE TO CRUNCH")
  23. If F$="" Then Goto ST
  24. Load Iff F$,0
  25. Spack 0 To 10
  26. Wait 50
  27. Screen Open 0,640,256,8,Hires
  28. Flash Off : Curs Off : Cls 0
  29. Paper 0 : Home : Print "Saving crunched pic ";F$;" ...."
  30. Save F$,10
  31. Wait 50
  32. Erase 10
  33. Goto ST
  34.  
  35. ALL:
  36. If Not Exist("Df0:pictures/")
  37. Cls 0
  38. Print "ERROR: NO Pictures/ drawer found, not a BELL set-up disk."
  39. Wait 100
  40. Goto ST
  41. End If 
  42. Dir$="DF0:"
  43. OLDF=Dfree
  44. Dir$="df0:pictures/"
  45.  
  46. COUNT=0
  47. F$=Dir First$("**")
  48.   While F$<>""
  49.   Inc COUNT
  50.   F$=Dir Next$
  51. Wend 
  52.  
  53. For A=1 To COUNT
  54. F$="pic"+Str$(A)-" "
  55. Cls 0 : Home : Print F$
  56. Load Iff F$,0
  57. Wait 50
  58. Spack 0 To 11
  59. Save F$,11
  60. Wait 50
  61. Erase 11
  62. Next A
  63.  
  64. Screen Open 0,640,256,8,Hires
  65. Flash Off : Curs Off 
  66. Cls 0 : Paper 5 : Print "ALL PICS CRUNCHED"
  67. Dir$="DF0:"
  68. Print : Print 
  69. Paper 0
  70. Print "Previous disk space free was ";OLDF
  71. Print "Disk space free now=         ";Dfree
  72. SAV=Dfree-OLDF
  73. Print "Saving of                    ";SAV;" bytes."
  74.  
  75. Paper 4 : Print : Print "CLICK MOUSE KEY TO CONTINUE"
  76.  
  77. While Mouse Key=0 : Wend 
  78.  
  79.  
  80. Goto ST